20 REM MOM'S KITCHEN AID
30 REM BY L. OLSON
60 A$=CHR$(14)
70 B$=CHR$(15)
80 C$=CHR$(10)
90 POKE53281,15:POKE53280,14
100 F$="[166][166][166][166][166][166][166][166][166][166]"
110 PRINT"[147][144]"TAB(11)"   KITCHEN AID   ":PRINT TAB(11)" FORMS GENERATOR "
120 PRINT"   ENTER THE NAME TO BE USED AT THE"
130 PRINT"   TOP OF THE FORMS   MOM[157][157][157][157][157]";:INPUT MM$
140 PRINT"    MAKE SURE PRINTER IS TURNED ON [144]"
150 PRINT"[144]   CHOICES:":PRINT"   1) MENU PLANNER FORM"
160 PRINT"   2) SHOPPING LIST FORM":PRINT"   ENTER CHOICE:"
170 GET K$:IFK$<>"1"ANDK$<>"2"THEN 170
180 PRINT"[145]"TAB(17)K$
190 OPEN4,4:PRINT TAB(13)" PRINTING... ":IF K$="2" THEN 440
200 REM ----------MENU PLANNER---------
210 Q$="  "+MM$+"'S DAILY MENU PLANNER  [146]":R$="FOR WEEK OF [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
220 TB=INT((15-LEN(MM$))/2)
230 S$=" SUNDAY    MONDAY    TUESDAY  WEDNESDAY"
240 W$="THURSDAY   FRIDAY   SATURDAY    NOTES:":E$=F$+F$+F$+F$:O$=" "
250 P$="[185][185][185][185][185][185][185][185][185]":GOSUB 310:T$=N$:GOSUB 320:X$=N$
260 P$="[165]MORNING[146][167]":GOSUB 310:T1$=N$:GOSUB 320:X1$=N$
270 P$="[165] NOON  [146][167]":GOSUB 310:T2$=N$:GOSUB 320:X2$=N$
280 P$="[165]EVENING[146][167]":GOSUB 310:T3$=N$:GOSUB 320:X3$=N$
290 P$="[165]       [167]":GOSUB 310:U$=N$:GOSUB 320:Y$=N$
300 P$="[184][184][184][184][184][184][184][184][184]":GOSUB 310:V$=N$:GOSUB 320:Z$=N$:QQ=0:GOTO 330
310 N$=P$+O$+P$+O$+P$+O$+P$:RETURN
320 N$=P$+O$+P$+O$+P$:RETURN
330 REM OPEN 6,4,6:QQ=1:REM USE THIS LINE IF 1526, 802 OR SIMILAR PRINTER USED
340 L=7:IF QQ=1 THEN L=12
350 PRINT#4,B$A$E$:PRINT#4,SPC(TB)Q$:PRINT#4,E$C$
360 PRINT#4,TAB(5)R$:PRINT#4,E$:IF QQ=1 THEN PRINT#6,CHR$(24)
370 PRINT#4,S$:PRINT#4,T$:PRINT#4,T1$:FORJ=1TOL-1:PRINT#4,U$:NEXTJ:PRINT#4,T2$
380 FORJ=1TOL:PRINT#4,U$:NEXTJ:PRINT#4,T3$:FORJ=1TOL+1:PRINT#4,U$:NEXTJ
390 PRINT#4,V$C$:PRINT#4,W$:PRINT#4,X$:PRINT#4,X1$:FORJ=1TOL-1:PRINT#4,Y$:NEXTJ
400 PRINT#4,X2$:FORJ=1TOL:PRINT#4,Y$:NEXTJ:PRINT#4,X3$:FORJ=1TOL+1:PRINT#4,Y$
410 NEXTJ:PRINT#4,Z$C$C$:IF QQ=1 THEN PRINT#6,CHR$(36)
420 CLOSE4:CLOSE6:RUN
430 REM SHOPPING LIST
440 V$=F$+"[166][166][166][166][166][166][166][166]":W$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":X$="[164][164][164][164][164][164][164][164][164][164][164][164][164][164] [164]"
450 Y$=MM$+"'S SHOPPING LIST":TB=INT((21-LEN(MM$))/2):Z$="   "
460 FOR J=1 TO 2:PRINT#4,B$A$V$Z$V$B$
470 PRINT#4,SPC(TB)Y$SPC(TB+6)SPC(TB)Y$
480 PRINT#4,A$W$Z$W$B$:FOR I=1 TO 28:IF I<10 THEN PRINT#4," "I;:GOTO 500
490 PRINT#4,I;
500 PRINT#4,A$X$Z$B$;:IF I<10 THEN PRINT#4," "I;:GOTO 520
510 PRINT#4,I;
520 PRINT#4,A$X$B$:NEXT I:PRINT#4,A$V$Z$V$B$:NEXTJ:CLOSE4:PRINT
530 RUN